home *** CD-ROM | disk | FTP | other *** search
/ Animations / Animations CD.iso / mainactor / rexx / saveiff.ma < prev    next >
Text File  |  1993-12-04  |  1KB  |  49 lines
  1. /*
  2.  *        SaveIFF V1.1, 1993 Markus Moenig
  3.  *
  4.  *        Save the pictures of the source project as IFF pictures.
  5.  *        You will be asked for the base name of the pictures.
  6.  */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. ADDRESS MAINACTOR
  11.  
  12. ScreenToFront                              /* flip screen to front */ 
  13.  
  14.                                            /* print message */
  15.  
  16. PrintAndStoreTXT "SaveIFF V1.1 saving pictures in IFF Format ..."
  17.  
  18. GetSPName
  19.  
  20. IF rc = 0 THEN DO                          /* check if project loaded */
  21.  
  22.     PARSE VAR RESULT firstname secondname .  /* store name of the animation */
  23.                                              /* or the names of the picture list */
  24.  
  25.     GetSPSaver                    
  26.     PARSE VAR RESULT savertype savername .   /* store saver module */
  27.  
  28.  
  29.     SetSPSaver PIC IFF                       /* Set saver module to IFF */
  30.  
  31.                                            /* Ask for Picture BaseName */
  32.  
  33.     RequestSaveFile "Select Picture Base Name"
  34.  
  35.     IF RC = 10 THEN DO
  36.         PrintTXT "Aborting ..."
  37.         EXIT
  38.     END
  39.  
  40.     newname = RESULT                         /* new name = RESULT */
  41.  
  42.     SelectAll                                /* select all frames/pictures */
  43.  
  44.     Save newname                             /* save em as IFF pics */
  45.  
  46.     SetSPSaver savertype savername           /* restore old saver module */
  47.  
  48. END
  49.